﻿Public Class ArticuloCodigoBarra

    Dim _CIA, _ARTICULO, _PROVEEDOR, _BARRA, _UNMCOD As String
    Dim _CANTIDAD As Decimal

    Sub New()

    End Sub

    Sub New(cia As String, articulo As String, proveedor As String, barra As String, medida As String, cantidad As Decimal)
        Me._CIA = cia
        Me._ARTICULO = articulo
        Me._PROVEEDOR = proveedor
        Me._BARRA = barra
        Me._UNMCOD = medida
        Me._CANTIDAD = cantidad
    End Sub

    Public Property CIA() As String
        Get
            Return _CIA
        End Get
        Set(value As String)
            _CIA = value
        End Set
    End Property

    Public Property ART_Codigo() As String
        Get
            Return _ARTICULO
        End Get
        Set(value As String)
            _ARTICULO = value
        End Set
    End Property

    Public Property PRV_Codigo() As String
        Get
            Return _PROVEEDOR
        End Get
        Set(value As String)
            _PROVEEDOR = value
        End Set
    End Property

    Public Property COD_Barra() As String
        Get
            Return _BARRA
        End Get
        Set(value As String)
            _BARRA = value
        End Set
    End Property

    Public Property UNM_Codigo() As String
        Get
            Return _UNMCOD
        End Get
        Set(value As String)
            _UNMCOD = value
        End Set
    End Property

    Public Property Cantidad() As Decimal
        Get
            Return _CANTIDAD
        End Get
        Set(value As Decimal)
            _CANTIDAD = value
        End Set
    End Property

End Class
